home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b5.d64 / read'dir2.l < prev    next >
Text File  |  2007-02-28  |  924b  |  33 lines
  1. 9000 //
  2. 9010 PROC READ'DIR2(D'FILE,DRIVE$,SHOW)  // NOT CLOSED
  3. 9020 RESTORE 
  4. 9030 DISK'GET'INIT
  5. 9040 PASS "I"+DRIVE$
  6. 9050 FILE'END:=FALSE
  7. 9060 OPEN FILE D'FILE,"$"+DRIVE$,READ
  8. 9070 DIR'HEADER(D'FILE,FILE'END,DISK'NAME$,DISK'ID$)
  9. 9080 IF SHOW THEN
  10. 9090 PRINT "DISK:";DISK'NAME$;"ID:";DISK'ID$
  11. 9100 PRINT 
  12. 9110 PRINT "NUM FILE NAME        TYP BLOCKS"
  13. 9120 PRINT "--- ---------------- --- ------"
  14. 9130 ENDIF 
  15. 9140 BC:=0; BLOCKS'FREE:=664; FILE'COUNT:=0
  16. 9150 REPEAT 
  17. 9160 NEXT'FILE(D'FILE,FILE'END,F'NAME$,F'TYPE#,F'BLOCKS#,BC)
  18. 9170 IF F'TYPE#<>128 THEN
  19. 9180 BLOCKS'FREE:-F'BLOCKS#
  20. 9190 FILE'COUNT:+1
  21. 9200 // INTO ARRAYS HERE
  22. 9210 ENDIF 
  23. 9220 IF SHOW THEN
  24. 9230 PRINT USING "###": FILE'COUNT;
  25. 9240 PRINT F'NAME$,TAB(22),TYPE$(F'TYPE#);
  26. 9250 PRINT USING "###": F'BLOCKS#
  27. 9260 ENDIF 
  28. 9270 UNTIL FILE'END
  29. 9280 CLOSE FILE D'FILE
  30. 9290 IF SHOW THEN PRINT FILE'COUNT;"FILES AND";BLOCKS'FREE;"BLOCKS FREE"
  31. 9300 ENDPROC READ'DIR2
  32. 9310 //
  33.